home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / basic / XvsDevBas.lha / MemoryCheck.bas < prev    next >
BASIC Source File  |  2002-06-04  |  2KB  |  77 lines
  1. ' *********************************************************************
  2. '                     MemoryCheck.bas 1.0 (2.6.02)
  3. '                 Dámaso D. Estévez <ast_dde@yahoo.es>
  4. '                        All Rights Reserved
  5. '
  6. '              AmiSpaTra - http://www.arrakis.es/~amidde/
  7. '
  8. '          Little demo for to see how to use the XVS library
  9. '          Pequeña demostración del uso de la biblioteca XVS
  10. ' *********************************************************************
  11.  
  12. REM $NOLIBRARY
  13.  
  14. REM $include xvs.bh
  15. REM $include exec.bc
  16.  
  17. LIBRARY OPEN "xvs.library",XVS_VERSION&
  18.  
  19. PRINT
  20. PRINT "Little XVS demo #1 :)"
  21. PRINT
  22.  
  23. infected& = xvsSelfTest&()
  24.  
  25. IF infected& = NULL&
  26.  
  27.     PRINT "DANGER !!!"
  28.     PRINT "The XVS library was modified/manipulated..."
  29.     PRINT "the checking/removing virus isn´t reliable !!!"
  30.     PRINT
  31.     PRINT "¡¡¡ PELIGRO !!!"
  32.     PRINT "¡¡¡ La biblioteca XVS ha sido modificada/manipulada..."
  33.     PRINT "la verificación/eliminación de virus no es fiable !!!"
  34.  
  35. ELSE
  36.  
  37.     '        Reserve the XVS' structs only with this function!!!!
  38.     ' ¡¡¡Reserve las estructuras XVS necesarias sólo con esta función!!!
  39.     ' ------------------------------------------------------------------
  40.     mi& = xvsAllocObject&(XVSOBJ_MEMORYINFO&)
  41.  
  42.     IF mi& <> NULL& THEN
  43.  
  44.         ' Checking if there are virus in the memory
  45.         '    Comprobando si hay virus en memoria
  46.         ' -----------------------------------------
  47.         count& = xvsSurveyMemory&(mi&)
  48.  
  49.         IF count& = NULL& THEN
  50.  
  51.             PRINT "This XVS release didn´t found any virus at your system."
  52.             PRINT "Esta versión de la biblioteca XVS no ha encontrado ningún virus en su sistema."
  53.  
  54.         ELSE
  55.  
  56.             PRINT count;" VIRUS FOUND !!"
  57.             PRINT "Use a good antivirus program for to remove them !"
  58.             PRINT
  59.             PRINT "¡¡ ";count;" VIRUS ENCONTRADOS !!"
  60.             PRINT "¡ Utilice un buen antivirus para eliminarlos !"
  61.  
  62.         END IF
  63.         
  64.     xvsFreeObject&(mi&)
  65.  
  66.     ELSE
  67.     
  68.         PRINT "Allocating XVSMemoryInfo struct failed !!!"
  69.  
  70.     END IF
  71.  
  72. END IF
  73.  
  74. LIBRARY CLOSE "xvs.library"
  75.  
  76. END
  77.